Function conv_Grados_Rad(ByVal grados As Double) As Double
    Dim radianes, Pi As Double
    Pi = (4 * Atn(1))
    radianes = (grados * Pi) / 180
    conv_Grados_Rad = radianes
End Function
